Fix which-key--group-p

length> is a new function maybe

diff --git a/which-key.el b/which-key.el
index 2c4004f950dd0f3a8b870946f610a76ca05b50d1..13c440d68ba9e6013e447503646afe683414a257 100644 (file)
--- a/which-key.el
+++ b/which-key.el
@@ -1406,8 +1406,7 @@ Uses `string-lessp' after applying lowercase."
 
 (defsubst which-key--group-p (description)
   (or (string-equal description "prefix")
-      (and (length> description 6)
-           (string-equal (substring description 0 6) "group:"))
+      (string-match-p "^group:" description)
       (keymapp (intern description))))
 
 (defun which-key-prefix-then-key-order (acons bcons)